COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	**** TAKE OUT STUFF AT TOP (ICUT(27) AND ICUT(K)=0)  ETC.
C00004 ENDMK
C⊗;
**** TAKE OUT STUFF AT TOP (ICUT(27) AND ICUT(K)=0)  ETC.

CU4203	IF(ICUT(J).EQ.0)GO TO 6102
CU	K=ICUT(J)
CU	X=PARAM(V(K),Z)
CU	Y=ABS(X)
CU	IF(BT.GE.Y)GO TO 6102
CU	Z=PARAM(V(K+1),Z)
C FOR 'CUTOFF N1, N2' N1=CUTOFF TIME, N2=SHORTEST NOTE.
C JUMP IF 'TEMPO' CHANGE
CU1102	PR=P2
CU	IF(BT+ABS(P2).LT.Y-Z)GO TO 6102
CU      P2=Y-BT   
CU	IF(PR.LT.0.OR.X.LT.0)IREST=-1
CC	IF(X.LT.0)IREST=-1
C -N1,N2 CAUSES REST FROM AFTER N1 UP TO N2.
C IF COFF2 IS NEG. THEN WE GET A REST IN THE REMAINING TIME. 
CU6102      PR=P2 
4203      PR=P2 
	PX2=P2



6101	X=PARAM(V(LN),Z)
C FOR 'CUTOFF N1, N2' N1=CUTOFF TIME, N2=SHORTEST NOTE.
	Y=ABS(X)
	IF(BT.GE.Y)GO TO 2155
	Z=PARAM(V(LN+1),Z)
C FOR 'CUTOFF N1, N2' N1=CUTOFF TIME, N2=SHORTEST NOTE.
C JUMP IF 'TEMPO' CHANGE
	IF(BT+ABS(P2).LT.Y-Z)GO TO 2155
1102	Z=P2
        P2=Y-BT   
	IF(Z.LT.0.OR.X.LT.0)IREST=-1
	PX2=P2
	PP2=PP2/PR*P2
	PR=P2
	GO TO 2155